perm filename NONDUP[1,JMC] blob sn#259344 filedate 1977-01-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE NONDUP (U S) (COND((OR (ATOM U) (MEMBER U S)) S)
C00003 ENDMK
CāŠ—;
(DE NONDUP (U S) (COND((OR (ATOM U) (MEMBER U S)) S)
(T ((LAMBDA (W) ((LAMBDA (X) (COND ((MEMBER X W) W)
(T (CONS X W)))) (CONS (LOOKUP (CAR U) W) (LOOKUP (CDR U) W))))
(NONDUP (CAR U) (NONDUP (CDR U) S))))))

(DE LOOKUP (U S) (COND ((NULL S) U) ((EQUAL U (CAR S)) (CAR S))
(T (LOOKUP U (CDR S)))))

(DE FIXA (U) (LOOKUP U (NONDUP U NIL)))